library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.1.2
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.1.2
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
library(readxl)
read_excel("school_survey.xlsx")
## # A tibble: 6 × 9
##   Variables  `Q1: I feel li…` `Q2: I learn a…` `Q3: I help my…` `Q5: Students …`
##   <chr>                 <dbl>            <dbl>            <dbl>            <dbl>
## 1 Forest Gr…             0.91             0.92             0.77             0.87
## 2 Guilford               0.87             0.81             0.59             0.81
## 3 Rolling R…             0.89             0.82             0.63             0.76
## 4 Sterling               0.82             0.89             0.62             0.68
## 5 Sugarland              0.91             0.92             0.75             0.83
## 6 Sully                  0.91             0.93             0.69             0.88
## # … with 4 more variables:
## #   `Q7: There are teachers or other adults at this school I could talk with if I needed help with something.` <dbl>,
## #   `Q8: Teachers and other adults at this school expect me to do well in school.` <dbl>,
## #   `Q13: I can explain an idea to other people and have them understand what I am saying.` <dbl>,
## #   `Q18: I get a chance to look back at my work in school and fix it or make it better` <dbl>
pars <- read_excel("school_survey.xlsx",sheet="Parents")
stu <- read_excel("school_survey.xlsx",sheet="Students")

Student Survey Q1

subset_one <- stu[1:6,1:2]
school1 <- subset_one$Variables
per1 <- subset_one$`Q1: I feel like I belong at this school`
per1 <- per1*100
one <- ggplot(subset_one,aes(x=school1,y=per1,fill=school1)) +geom_col()+labs(title="I feel like I belong at this school",x="School",y="Percent") + scale_fill_discrete(name = "") + geom_text(aes(label = per1, y = per1), size = 3, position = position_stack(vjust = 1.02))
ggplotly(one)

91% of students at Forest Grove, Sugarland, and Sully agree that they feel like they belong at their school while at Guilford and Rolling Ridge, only 87% and 89% of students agree, respectively. At Sterling, only 82% of students agree that they feel like they belong at their school.

Student Survey Q2

subset_two <- stu[1:6,c(1,3)]
school2 <- subset_two$Variables
per2 <- subset_two$`Q2: I learn about people who are different from me.`
per2 <- per2*100
two <- ggplot(subset_two,aes(x=school2,y=per2,fill=school2)) +geom_col()+labs(title="I learn about people who are different from me",x="School",y="Percent") + scale_fill_discrete(name = "") + geom_text(aes(label = per2, y = per2), size = 3, position = position_stack(vjust = 1.02))
ggplotly(two)

Only 81% and 82% of students at Guilford and Rolling Ridge agreed that they learn about people who are different from them at school while all other schools are between 89% and 93%.

Parent Survey Q7

subset_seven <- pars[1:6,c(1,8)]
school7 <- subset_seven$School
per7 <- subset_seven$`3g. My child has access to social-emotional support in this school.`
per7 <- per7*100
seven <- ggplot(subset_seven,aes(x=school7,y=per7,fill=school7)) +geom_col()+labs(title="My child has access to social-emotional support in this school",x="School",y="Percent") + scale_fill_discrete(name = "") + geom_text(aes(label = per7, y = per7), size = 3, position = position_stack(vjust = 1.02))
ggplotly(seven)

At all schools except Guilford and Sugarland, over 95% of parents agree that their student has access to social-emotional support compared to 94% and 93%, respectively.

subset_eight <- pars[1:6,c(1,9)]
school8 <- subset_eight$School
per8 <- subset_eight$`3h. This school provides multiple opportunities for family engagement in school activities.`
per8 <- per8*100
eight <- ggplot(subset_eight,aes(x=school8,y=per8,fill=school8)) +geom_col()+labs(title="This school provides multiple opportunities \n for family engagement in school activities",x="School",y="Percent") + scale_fill_discrete(name = "") + geom_text(aes(label = per8, y = per8), size = 3, position = position_stack(vjust = 1.02))
ggplotly(eight)

90% of parents at Forest Grove and 89% of parents at Sugarland agree that there multiple opportunities for parent enaggement in school activities. All other school’s parents agree at over 95%.

subset_nine <- pars[1:6,c(1,10)]
school9 <- subset_nine$School
per9 <- subset_nine$`4a. This school provides a safe and orderly place for students to learn.`
per9 <- per9*100
nine <- ggplot(subset_nine,aes(x=school9,y=per9,fill=school9)) +geom_col()+labs(title="This school provides a safe and orderly place for students to learn",x="School",y="Percent") + scale_fill_discrete(name = "") + geom_text(aes(label = per9, y = per9), size = 3, position = position_stack(vjust = 1.02))
ggplotly(nine)

Parents at all schools agree over 92% that this school provides a safe and orderly place for students to learn.

subset_ten <- pars[1:6,c(1,11)]
school10 <- subset_ten$School
per10 <- subset_ten$`4d. My child is being taught to respect people of different cultural, ethnic, and racial backgrounds`
per10 <- per10*100
ten <- ggplot(subset_ten,aes(x=school10,y=per10,fill=school10)) +geom_col()+labs(title="My child is being taught to respect people of different \n cultural, ethnic, and racial backgrounds",x="School",y="Percent") + scale_fill_discrete(name = "") + geom_text(aes(label = per10, y = per10), size = 3, position = position_stack(vjust = 1.02))
ggplotly(ten)

Parents at all schools except Sugarland agree over 95% that their child is being taught to respect people of different cultural, ethnic, and racial backgrounds. At Sugarland, only 91% of parents agree.